﻿Imports System.Diagnostics
Imports System.Windows.Forms

Public Class ShowDialog
    Public Sub New()
        Dim msg As DialogResult = MsgBox("Press ok to view the simulation results in the default browser ?", MsgBoxStyle.OkCancel)
        If msg = DialogResult.OK Then
            Dim p As New System.Diagnostics.Process
            Dim s As New System.Diagnostics.ProcessStartInfo("Results.html")
            s.UseShellExecute = True
            s.WindowStyle = ProcessWindowStyle.Normal
            p.StartInfo = s
            p.Start()
        ElseIf msg = DialogResult.Cancel Then

        End If
        

    End Sub



End Class
